home *** CD-ROM | disk | FTP | other *** search
/ MacWarehouse Macintosh Games / MacWarehouse Macintosh Games.iso / AMBER demo / AMBER-Journeys Beyond™ Patch 1c / 00001_cPatchManager.ls next >
Encoding:
Text File  |  1997-02-19  |  1.6 KB  |  53 lines
  1. property patchList, patchPath
  2.  
  3. on birth me
  4.   set patchPath to the pathName & the movieName
  5.   set patchList to value(field "patches")
  6.   if not listp(patchList) then
  7.     alert("Sorry, this patch file seems to be corrupt")
  8.     return #badPatch
  9.   else
  10.     put "<i>  cPatchManager: my patchPath = " & patchPath
  11.     put "<i>  cPatchManager: patchList = " & patchList
  12.   end if
  13.   return me
  14. end
  15.  
  16. on patchMe me, targetMovie
  17.   put "<i> oPatchManger:target movie = " & targetMovie
  18.   set iDelim to the itemDelimiter
  19.   set the itemDelimiter to "."
  20.   set targetMovie to item 1 of targetMovie
  21.   set the itemDelimiter to iDelim
  22.   put "<i>  root-name of targetMovie = " & targetMovie
  23.   if voidp(getaProp(patchList, targetMovie)) then
  24.     put "<i>  no patches listed for this movie"
  25.   else
  26.     set lsTargetPatches to getProp(patchList, targetMovie)
  27.     put "<i>  I've found patches for this movie:"
  28.     put lsTargetPatches
  29.     set the visible of window patchPath to 0
  30.     put "<i>  current windows: " & the windowList
  31.     if count(the windowList) = 0 then
  32.       alert("Can't read patch file, possibly corrupted")
  33.       exit
  34.     end if
  35.     put "<i>   lsTargetPatches = " & lsTargetPatches
  36.     repeat with thePatch in lsTargetPatches
  37.       tell window patchPath
  38.         copyToClipBoard(cast getAt(thePatch, 1))
  39.       end tell
  40.       tell the stage
  41.         pasteClipBoardInto(cast getAt(thePatch, 2))
  42.       end tell
  43.     end repeat
  44.     put "<i> patchMgr:  That oughta do it.."
  45.     put "<i>  windowlist = " & the windowList
  46.   end if
  47. end
  48.  
  49. on closePatchFile me
  50.   forget(window patchPath)
  51.   put "<i>  final windowlist = " & the windowList
  52. end
  53.